function y=plotB(List,range)
hold on;
for p = List
    plot(p,0,'.k');
end
yline(0);
for i = -range:range
    plot(i,0,'ok');
end
